(dired-compress-file): Declare.

(ange-ftp-dired-compress-file): Add doc string.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 94525b540b8ab3f31aeee28668a32ac2e5dd9a81..fd7b83900d4b5cddfc38450da987e35e2edfe15c 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4165,7 +4165,10 @@ COMPRESSING should be t if the specified file should be compressed,
 and nil if it should be uncompressed (that is, if it is a compressed file).
 NEWNAME should be the name to give the new compressed or uncompressed file.")
 
+(declare-function dired-compress-file "dired-aux" (file))
+
 (defun ange-ftp-dired-compress-file (name)
+  "Handler used by `dired-compress-file'."
   (let ((parsed (ange-ftp-ftp-name name))
        conversion-func)
     (if (and parsed